home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1996 September & October
/
Amiga-CD 1996 #9-10.iso
/
demos
/
rdb-salv
/
registerscript
< prev
next >
Wrap
AmigaDOS Script File
|
1996-07-01
|
4KB
|
134 lines
.KEY language/A
.BRA {
.KET }
SET rdbsalvlang {language}
; *** This is the filename under which the registration form is saved
SET rdbsalvregfilename "Registerform"
SET rdbsalvnoregform "Sorry, could not find registration form for RDB-Salv."
SET rdbsalvregreq "Registration Request"
SET rdbsalvshallprint "Do you want the registration form being printed now?"
SET rdbsalvshalldelete "Do you want the registration form in T: being deleted now?"
SET rdbsalvansok "OK"
SET rdbsalvansyes "Yes"
SET rdbsalvansno "No"
IF $rdbsalvlang EQ "deutsch"
SET rdbsalvregfilename "Registrierformular"
SET rdbsalvnoregform "Leider konnte kein Registrierformular für RDB-Salv gefunden werden."
SET rdbsalvregreq "Registrations-Dialogfenster"
SET rdbsalvshallprint "Soll das Registrierformular nun gedruckt werden?"
SET rdbsalvshalldelete "Soll das Registrierformular nun aus T: gelöscht werden?"
SET rdbsalvansok "OK"
SET rdbsalvansyes "Ja"
SET rdbsalvansno "Nein"
ENDIF
IF $rdbsalvlang EQ "français"
SET rdbsalvregfilename "FicheD'Enregistrement"
SET rdbsalvnoregform "Désolé, impossible de trouver le formulaire d'enregistrement pour RDB-Salv."
SET rdbsalvregreq "Requête d'enregistrement"
SET rdbsalvshallprint "Voulez-vous que la fiche d'enregistrement soit imprimée maintenant ?"
SET rdbsalvshalldelete "Voulez-vous que la fiche d'enregistrement dans T: soit effacée maintenant ?"
SET rdbsalvansok "OK"
SET rdbsalvansyes "Oui"
SET rdbsalvansno "Non"
ENDIF
IF $rdbsalvlang EQ "italiano"
SET rdbsalvregfilename "Moduloregistrazione"
SET rdbsalvnoregform "Spiacente, non trovo il modulo di registrazione per RDB-Salv."
SET rdbsalvregreq "Registrazione"
SET rdbsalvshallprint "Volete stampare il modulo di registrazione adesso?"
SET rdbsalvshalldelete "Volete cheil modulo di registrazione venga cancellato da T: adesso?"
SET rdbsalvansok "OK"
SET rdbsalvansyes "Si"
SET rdbsalvansno "No"
ENDIF
IF $rdbsalvlang EQ "nederlands"
SET rdbsalvregfilename "Registratieformulier"
SET rdbsalvnoregform "Sorry, kon registratieformulier niet vinden voor RDB-Salv"
SET rdbsalvregreq "Verzoek tot registratie"
SET rdbsalvshallprint "Zal ik het registratieformulier nu printen?"
SET rdbsalvshalldelete "Zal ik het registratieformulier in T: nu wissen?"
SET rdbsalvansok "Ok"
SET rdbsalvansyes "Ja"
SET rdbsalvansno "Nee"
ENDIF
IF $rdbsalvlang EQ "norsk"
SET rdbsalvregfilename "Registrerings-skjema"
SET rdbsalvnoregform "Beklager, kunne ikke finne registrerings-skjemaet for RDB-Salv."
SET rdbsalvregreq "Registrerings-forespørsel"
SET rdbsalvshallprint "Vil du skrive ut registrerings-skjemaet nå?"
SET rdbsalvshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
SET rdbsalvansok "OK"
SET rdbsalvansyes "Ja"
SET rdbsalvansno "Nei"
ENDIF
IF $rdbsalvlang EQ "svenska"
SET rdbsalvregfilename "Registreringsformulär"
SET rdbsalvnoregform "Hittar inte registreringsformuläret för RDB-Salv."
SET rdbsalvregreq "Registreringsförfrågan"
SET rdbsalvshallprint "Vill du skriva ut registreringsformuläret nu?"
SET rdbsalvshalldelete "Vill du radera registreringsformuläret i T: nu?"
SET rdbsalvansok "Okej"
SET rdbsalvansyes "Ja"
SET rdbsalvansno "Nej"
ENDIF
IF NOT EXISTS $rdbsalvlang/$rdbsalvregfilename
SET rdbsalvlang english
SET rdbsalvregfilename "Registerform"
ENDIF
IF NOT EXISTS $rdbsalvlang/$rdbsalvregfilename
SET rdbsalvlang deutsch
SET rdbsalvregfilename "Registrierformular"
ENDIF
IF EXISTS $rdbsalvlang/$rdbsalvregfilename
Copy $rdbsalvlang/$rdbsalvregfilename T:Registerform
IF EXISTS ENV:EDITOR
$EDITOR T:Registerform
ELSE
Ed T:Registerform
ENDIF
ELSE
IF EXISTS C:RequestChoice
RequestChoice >NIL: "$rdbsalvregreq" "$rdbsalvnoregform" "$rdbsalvansok"
ELSE
Echo >CON:0/0/640/100/Error "$rdbsalvnoregform"
ENDIF
SKIP unsetvars
ENDIF
IF EXISTS C:RequestChoice
RequestChoice >ENV:RDBSALVANSWER "$rdbsalvregreq" "$rdbsalvshallprint" "$rdbsalvansyes" "$rdbsalvansno"
IF $RDBSALVANSWER EQ 1
Type T:Registerform TO PRT:
ENDIF
RequestChoice >ENV:RDBSALVANSWER "$rdbsalvregreq" "$rdbsalvshalldelete" "$rdbsalvansyes" "$rdbsalvansno"
IF $RDBSALVANSWER EQ 1
Delete QUIET T:Registerform
ENDIF
Delete QUIET ENV:RDBSALVANSWER
ENDIF
LAB unsetvars
UNSET rdbsalvlang
UNSET rdbsalvregfilename
UNSET rdbsalvnoregform
UNSET rdbsalvregreq
UNSET rdbsalvshallprint
UNSET rdbsalvshalldelete
UNSET rdbsalvansok
UNSET rdbsalvansyes
UNSET rdbsalvansno
LAB end